home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / Intro to HyperCard 2.0 / card_14752.txt < prev    next >
Text File  |  1990-08-24  |  3KB  |  124 lines
  1. -- card: 14752 from stack: in.0
  2. -- bmap block id: 15096
  3. -- flags: 0000
  4. -- background id: 15491
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on goPrev
  8.   lock screen
  9.   set cursor to none
  10.   go cd "AppleTree"
  11.   show cd picture
  12.   unlock screen with dissolve
  13.   hide cd fld "text1" of cd id 14752
  14.   showText
  15. end goPrev
  16.  
  17.  
  18. on Action
  19.   lock screen
  20.   set cursor to none
  21.   hide cd fld 1
  22.   go next
  23.   unlock screen with dissolve
  24. end Action
  25.  
  26. -- make the planet circle Newton's head
  27. on PlanetCircle
  28.   set cursor to none
  29.   repeat 3
  30.     set the loc of btn "planet" to 321,86
  31.     show btn "planet"
  32.     wait 5
  33.     set the loc of btn "planet" to 334,99
  34.     wait 5
  35.     set the loc of btn "planet" to 327,117
  36.     wait 5
  37.     set the loc of btn "planet" to 305,124
  38.     wait 5
  39.     set the loc of btn "planet" to 275,125
  40.     wait 5
  41.     set the loc of btn "planet" to 243,128
  42.     wait 5
  43.     set the loc of btn "planet" to 212,127
  44.     wait 5
  45.     set the loc of btn "planet" to 183,120
  46.     wait 5
  47.     set the loc of btn "planet" to 155,110
  48.     wait 5
  49.     set the loc of btn "planet" to 145,90
  50.     wait 5
  51.     hide btn "planet"
  52.     wait 20
  53.   end repeat
  54. end PlanetCircle
  55.  
  56.  
  57. -- part 1 (button)
  58. -- low flags: 80
  59. -- high flags: 0000
  60. -- rect: left=132 top=77 right=103 bottom=159
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 21183 / 21183
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: planet
  69.  
  70.  
  71. -- part 3 (field)
  72. -- low flags: 81
  73. -- high flags: 0000
  74. -- rect: left=16 top=34 right=202 bottom=120
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 0
  78. -- font id: 174
  79. -- text size: 14
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: text1
  83.  
  84.  
  85. -- part 4 (button)
  86. -- low flags: 00
  87. -- high flags: 0000
  88. -- rect: left=474 top=195 right=224 bottom=506
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 24471 / 24471
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: MapBtn
  97. ----- HyperTalk script -----
  98. -- Go to the Map stack.  "CameFrom" holds the name of this cd
  99. -- so the Map can hilite the cd the user came from.
  100.  
  101. on mouseUp
  102.   global DisSpeed, CameFrom, MapMode
  103.   set the hilite of me to true
  104.   lock Screen
  105.   set the hilite of me to false
  106.   put "Introduction to" into CameFrom
  107.   put last char of the icon of bg btn "section" into sectionNum
  108.   if sectionNum > 3 then put 2 into sectionNum
  109.   put "section" && sectionNum & ":" into SubCd
  110.   visual DisSpeed
  111.   if MapMode is "graph" then
  112.     go to cd SubCd of stack "‚Ä¢HC 2.0-3"
  113.     HiliteMap
  114.   else
  115.     go to cd "indexmap" of stack "‚Ä¢HC 2.0-3"
  116.   end if
  117.   unlock screen with DisSpeed
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part contents for card part 3
  123. ----- text -----
  124. And apples falling on people who are reading causes me to think of Isaac Newton, the discoverer of the laws of gravity...